Interactive Quarterly/The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso/pc/demos/az/cyberx.dxr/00086_MOVIMIENTO FRAMES RECORRIDO.ls

Text File | 1996-10-06 | 601 b | 30 lines

on exitFrame
  go(the frame)
end

on keyDown
  if the keyCode = 124 then
    puppetSprite(23, 1)
    set the castNum of sprite 23 to 2103
    derecha()
  else
    if the keyCode = 123 then
      puppetSprite(22, 1)
      set the castNum of sprite 22 to 2104
      izquierda()
    else
      if the keyCode = 126 then
        puppetSprite(20, 1)
        set the castNum of sprite 20 to 2102
        adelante()
      else
        if the keyCode = 125 then
          puppetSprite(21, 1)
          set the castNum of sprite 21 to 2101
          atras()
        end if
      end if
    end if
  end if
end